---
title: "Proyecto Final: Feminicidios en México 2020"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    social: menu
    source_code: embed
    theme: journal
    

---



sidebar {.sidebar}
======================================================================
```{r}

```

La Comisión Nacional para Prevenir y Erradicar la Violencia contra las Mujeres, conceptualiza el feminicidio como la muerte violenta de mujeres por razones de género, el cual se encuentra tipificado en el Código Penal Federal (artículo 325) como la forma más extrema de violencia contra la mujer. En México, tan sólo en 2019 se registró un promedio de 10 mujeres asesinadas al día. 

Como parte de este proyecto, se utilizó una base de datos cuyo contenido radicó en la ubicación espacial sobre casos de feminicidios, rastreados a partir de notas periodísticas en lo que va de 2020. Con la finalidad de observar si existía un comportamiento espacial y cómo se distribuían estos casos en la República Mexicana, se realizó un análisis de patrones puntuales que incluyó la función G, F y densidad de puntos.

En primer lugar, se describirán los resultados de la Función G y la Función F. En ambas, la línea roja hace referencia al patrón aleatorio, la nube gris es el producto de las 99 simulaciones realizadas, mientras que la línea negra son los patrones observados. Ante ello, para la función G se observó una acumulación de puntos del 40% a una distancia menor a 0.3, lo cual es un indicidio de que a distancias cortas se agrupan un número importante de casos. Otra observación que lo confirma es que el patrón observado se encuentra por encima del aleatorio. 

Por su parte, la función F o función de espacio vacío, muestra a qué distancia se encuentra el vecino más cercano, por lo que, si existen aglomeraciones, acumulará más lento respecto del patrón aleatorio. Lo cual resulta congruente con los resultados anteriores, en este caso, los datos se acumulan de manera muy lenta respecto del patrón aleatorio, lo que indicaría un patrón espacial. 

Finalmente, se muestran los casos de feminicidios en el país. El primero, muestra los eventos que fueron registrados, mientras que el segundo refleja la densidad de puntos. En ambos casos puede observarse que la mayor cantidad de casos se encuentran en la zona centro del país (en estados como: Ciudad de México, Puebla, Tlaxcala, Estado de México y Guanajuato) y algunos pocos (rosa obscuro) en el norte (Frontera de Baja California y Chihuahua).

Lo dicho en su conjunto, releva la existencia de un patrón espacial en los casos de feminicidios en México. Esta información brinda la pauta para ahondar en las características específicas de estos lugares y las posibles causas que hacen de este fenómeno un problema mayor en los lugares mencionados. 



Fuentes:

1. Comisión Nacional para Prevenir y Erradicar la Violencia Contra las Mujeres. (2016). ¿Qué es el feminicidio y cómo identificarlo?. Disponible en: https://www.gob.mx/conavim/articulos/que-es-el-feminicidio-y-como-identificarlo?idiom=es 

2. Sánchez, Lisa (2020). Violencia de género y feminicidios en México: los datos hablan. Letras Libres. Disponible en: https://www.letraslibres.com/mexico/politica/violencia-genero-y-feminicidios-en-mexico-los-datos-hablan 


Resultados
======================================================================



```{r setup, include=FALSE}
library(flexdashboard)
library(spatstat)
library(maptools)
library(rgdal)
library(sp)


femin <- readShapePoints("C:/Users/Pato/Desktop/proyecto_final_geoinformatica/feminicidios_2020_coords.shp")

# ppp
SP <- as(femin, "SpatialPoints")
femin2 <- as(SP, "ppp")

# Funcion G
set.seed(120109)
r <-seq(0,sqrt(2)/6, by = 0.005)
fung <- envelope(as(femin2,"ppp"),fun=Gest,r=r,nrank=2, nsim=99)


# Funcion F 
set.seed(30)
r <-seq(0,sqrt(2)/6, by = 0.00195)
funf<- envelope(as(femin2,"ppp"),fun=Fest,r=r,nrank=2, nsim=99)

# Mapa
S <- readShapePoly("C:/Users/Pato/Desktop/Nueva carpeta/destdv1gw.shp")
SP <- as(S, "SpatialPolygons")
W <- as(SP, "owin")
#Se sustituye la ventanaporagebs-dissolve
femin2 <- femin2[W]
```





Column {data-width=600}
-----------------------------------------------------------------------



### Función G

```{r}
plot(fung, main="Función G. Feminicidios en México 2020")
```


### Feminicidios en México 2020

```{r}
plot(SP, main="Registro periodístico de feminicidios en México 2020", col="white")
points(femin2, col="purple", pch=1, cex=0.7)
```





Row {data-height=200}
-----------------------------------------------------------------------

### Función F

```{r}
plot(funf, main="Función F. Feminicidios en México 2020")
```



### Densidad de puntos

```{r}

ds <- density(femin2)
plot(ds, main='Densidad de feminicidios 2020')
```